(delete-selection-pre-hook): Check if mouse-region-match is fbound

to not fail on mouseless tty.

diff --git a/lisp/delsel.el b/lisp/delsel.el
index b4ae7965a3f660bc92aa9b2f8fc630c945541b99..82593985650735403041846c399f4561211fcf0f 100644 (file)
--- a/lisp/delsel.el
+++ b/lisp/delsel.el
@@ -93,6 +93,7 @@ any selection."
                 ;; That would make yank a no-op.
                 (when (and (string= (buffer-substring-no-properties (point) (mark))
                                     (car kill-ring))
+                           (fboundp 'mouse-region-match)
                            (mouse-region-match))
                   (current-kill 1))
                 (delete-active-region))